data-raw/Alcoholic beverage assumptions/alc_abv.R

# % alcohol by volume

abv_data <- data.table(
  beverage = c("nbeerabv", "sbeerabv", "spiritsabv", "sherryabv", "wineabv", "popsabv"),
  abv = c(4.4, 8.4, 38, 17, 12.5, 4.5)
)

usethis::use_data(abv_data)
STAPM/hseclean documentation built on June 9, 2025, 4:50 a.m.